/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / DA / P / PCalculator.cpt / CalcDA sources / CalcDA_FuncStack.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 43 61 6c 63 44 41 | 5f 46 75 6e 63 53 74 61 |..CalcDA|_FuncSta|
|00000010| 63 6b 2e 63 00 00 00 00 | 00 00 00 00 00 00 00 00 |ck.c....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 08 b7 00 | 00 01 5c a2 ba ad 42 a2 |........|..\...B.|
|00000060| ba ad 42 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..B.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a1 6c 00 00 |........|.....l..|
|00000080| 2f 2a 0d 20 2a 20 43 61 | 6c 63 44 41 5f 46 75 6e |/*. * Ca|lcDA_Fun|
|00000090| 63 53 74 61 63 6b 2e 63 | 20 66 6f 72 20 74 68 65 |cStack.c| for the|
|000000a0| 20 50 72 6f 67 72 61 6d | 6d 65 72 27 73 20 43 61 | Program|mer's Ca|
|000000b0| 6c 63 75 6c 61 74 6f 72 | 20 70 72 6f 6a 65 63 74 |lculator| project|
|000000c0| 20 0d 20 2a 20 0d 20 2a | 20 43 6f 70 79 72 69 67 | . * . *| Copyrig|
|000000d0| 68 74 20 31 39 39 30 2c | 20 50 65 74 65 72 20 4f |ht 1990,| Peter O|
|000000e0| 68 6c 65 72 20 0d 20 2a | 20 0d 20 2a 20 41 6c 6c |hler . *| . * All|
|000000f0| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|00000100| 20 0d 20 2a 20 0d 20 2a | 20 54 68 65 20 50 72 6f | . * . *| The Pro|
|00000110| 67 72 61 6d 6d 65 72 27 | 73 20 43 61 6c 63 75 6c |grammer'|s Calcul|
|00000120| 61 74 6f 72 20 61 6e 64 | 20 74 68 65 20 73 6f 75 |ator and| the sou|
|00000130| 72 63 65 20 63 6f 64 65 | 20 61 72 65 20 73 68 61 |rce code| are sha|
|00000140| 72 65 77 61 72 65 2e 20 | 20 54 68 61 74 20 6d 65 |reware. | That me|
|00000150| 61 6e 73 0d 20 2a 20 74 | 68 65 79 20 61 72 65 20 |ans. * t|hey are |
|00000160| 6e 6f 74 20 66 72 65 65 | 2e 20 20 49 66 20 79 6f |not free|.  If yo|
|00000170| 75 20 75 73 65 20 65 69 | 74 68 65 72 20 74 68 65 |u use ei|ther the|
|00000180| 20 73 6f 75 72 63 65 20 | 6f 72 20 74 68 65 20 63 | source |or the c|
|00000190| 61 6c 63 75 6c 61 74 6f | 72 20 74 68 65 6e 0d 20 |alculato|r then. |
|000001a0| 2a 20 73 65 6e 64 20 24 | 35 20 6f 72 20 24 31 30 |* send $|5 or $10|
|000001b0| 20 28 77 68 61 74 65 76 | 65 72 20 79 6f 75 20 66 | (whatev|er you f|
|000001c0| 65 65 6c 20 69 74 73 20 | 77 6f 72 74 68 29 20 74 |eel its |worth) t|
|000001d0| 6f 20 74 68 65 20 61 64 | 64 72 65 73 73 20 74 68 |o the ad|dress th|
|000001e0| 61 74 20 66 6f 6c 6c 6f | 77 73 2e 0d 20 2a 20 54 |at follo|ws.. * T|
|000001f0| 68 65 20 73 6f 75 72 63 | 65 20 61 6e 64 20 63 61 |he sourc|e and ca|
|00000200| 6c 63 75 6c 61 74 6f 72 | 20 63 61 6e 20 62 65 20 |lculator| can be |
|00000210| 64 69 73 74 72 69 62 75 | 74 65 64 20 66 6f 72 20 |distribu|ted for |
|00000220| 66 72 65 65 2e 20 20 50 | 72 69 6f 72 20 74 6f 20 |free.  P|rior to |
|00000230| 61 6e 79 20 73 61 6c 65 | 0d 20 2a 20 6f 66 20 65 |any sale|. * of e|
|00000240| 69 74 68 65 72 20 74 68 | 65 20 73 6f 75 72 63 65 |ither th|e source|
|00000250| 20 63 6f 64 65 20 6f 72 | 20 74 68 65 20 63 61 6c | code or| the cal|
|00000260| 63 75 6c 61 74 6f 72 20 | 6d 79 20 70 65 72 6d 69 |culator |my permi|
|00000270| 73 73 69 6f 6e 20 6d 75 | 73 74 20 62 65 0d 20 2a |ssion mu|st be. *|
|00000280| 20 6f 62 74 61 69 6e 65 | 64 2e 20 20 54 68 69 73 | obtaine|d.  This|
|00000290| 20 69 6e 63 6c 75 64 65 | 73 20 73 61 6c 65 73 20 | include|s sales |
|000002a0| 62 79 20 73 68 61 72 65 | 77 61 72 65 20 64 69 73 |by share|ware dis|
|000002b0| 74 72 69 62 75 74 69 6f | 6e 20 68 6f 75 73 65 73 |tributio|n houses|
|000002c0| 20 74 68 61 74 20 73 65 | 6c 6c 0d 20 2a 20 73 68 | that se|ll. * sh|
|000002d0| 61 72 65 77 61 72 65 2e | 20 20 0d 20 2a 20 0d 20 |areware.|  . * . |
|000002e0| 2a 20 50 65 74 65 72 20 | 4f 68 6c 65 72 20 0d 20 |* Peter |Ohler . |
|000002f0| 2a 20 0d 20 2a 20 33 31 | 38 34 20 52 6f 68 72 65 |* . * 31|84 Rohre|
|00000300| 72 20 44 72 69 76 65 2c | 20 4c 61 66 61 79 65 74 |r Drive,| Lafayet|
|00000310| 74 65 20 43 41 20 39 34 | 35 34 39 20 0d 20 2a 20 |te CA 94|549 . * |
|00000320| 0d 20 2a 20 28 34 31 35 | 29 20 32 38 34 2d 37 38 |. * (415|) 284-78|
|00000330| 32 38 20 0d 20 2a 20 0d | 20 2a 20 2a 2a 2a 2a 2a |28 . * .| * *****|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 2a 2a 0d 20 | 2a 20 0d 20 2a 20 54 68 |******. |* . * Th|
|00000390| 65 20 66 75 6e 63 74 69 | 6f 6e 73 20 74 68 61 74 |e functi|ons that|
|000003a0| 20 74 68 65 20 75 73 65 | 72 20 73 70 65 63 69 66 | the use|r specif|
|000003b0| 69 65 73 20 75 73 69 6e | 67 20 74 68 65 20 62 75 |ies usin|g the bu|
|000003c0| 74 74 6f 6e 20 6f 6e 20 | 74 68 65 20 63 61 6c 63 |tton on |the calc|
|000003d0| 75 6c 61 74 6f 72 0d 20 | 2a 20 61 72 65 20 6e 6f |ulator. |* are no|
|000003e0| 74 20 61 6c 77 61 79 73 | 20 65 78 65 63 75 74 65 |t always| execute|
|000003f0| 64 20 61 73 20 73 6f 6f | 6e 20 61 73 20 74 68 65 |d as soo|n as the|
|00000400| 79 20 61 72 65 20 68 69 | 74 2e 20 20 46 75 6e 63 |y are hi|t.  Func|
|00000410| 74 69 6f 6e 73 20 73 75 | 63 68 20 61 73 20 2b 2c |tions su|ch as +,|
|00000420| 20 2d 20 2c 0d 20 2a 20 | 2a 2c 20 65 74 63 2e 20 | - ,. * |*, etc. |
|00000430| 20 61 72 65 20 70 75 74 | 20 6f 6e 20 61 20 73 74 | are put| on a st|
|00000440| 61 63 6b 20 61 6e 64 20 | 65 78 65 63 75 74 65 64 |ack and |executed|
|00000450| 20 77 68 65 6e 20 65 76 | 65 72 79 20 61 20 66 75 | when ev|ery a fu|
|00000460| 6e 63 74 69 6f 6e 20 6f | 66 20 6c 6f 77 65 72 0d |nction o|f lower.|
|00000470| 20 2a 20 70 72 65 73 65 | 64 65 6e 63 65 20 69 73 | * prese|dence is|
|00000480| 20 65 6e 74 65 72 65 64 | 2e 20 20 54 68 69 73 20 | entered|.  This |
|00000490| 66 69 6c 65 20 63 6f 6e | 74 61 69 6e 73 20 74 68 |file con|tains th|
|000004a0| 65 20 66 75 6e 63 74 69 | 6f 6e 73 20 74 68 61 74 |e functi|ons that|
|000004b0| 20 6d 61 6e 61 67 65 20 | 74 68 65 0d 20 2a 20 73 | manage |the. * s|
|000004c0| 74 61 63 6b 2e 20 20 0d | 20 2a 2f 0d 0d 23 69 6e |tack.  .| */..#in|
|000004d0| 63 6c 75 64 65 20 22 43 | 61 6c 63 44 41 2e 68 22 |clude "C|alcDA.h"|
|000004e0| 0d 0d 2f 2a 0d 20 2a 20 | 2a 2a 2a 2a 2a 2a 2a 2a |../*. * |********|
|000004f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000530| 2a 2a 2a 0d 20 2a 20 70 | 72 6f 74 6f 74 79 70 65 |***. * p|rototype|
|00000540| 73 20 0d 20 2a 2f 0d 49 | 6e 74 46 75 6e 63 09 50 |s . */.I|ntFunc.P|
|00000550| 6f 70 46 75 6e 63 53 74 | 61 63 6b 28 76 6f 69 64 |opFuncSt|ack(void|
|00000560| 29 3b 0d 69 6e 74 09 50 | 75 73 68 46 75 6e 63 53 |);.int.P|ushFuncS|
|00000570| 74 61 63 6b 28 49 6e 74 | 46 75 6e 63 20 66 75 6e |tack(Int|Func fun|
|00000580| 63 29 3b 0d 76 6f 69 64 | 09 43 6c 65 61 72 46 75 |c);.void|.ClearFu|
|00000590| 6e 63 53 74 61 63 6b 28 | 76 6f 69 64 29 3b 0d 0d |ncStack(|void);..|
|000005a0| 2f 2a 0d 20 2a 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*. * **|********|
|000005b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005f0| 2a 0d 20 2a 20 76 61 72 | 69 61 62 6c 65 73 20 0d |*. * var|iables .|
|00000600| 20 2a 2f 0d 0d 49 6e 74 | 46 75 6e 63 09 66 75 6e | */..Int|Func.fun|
|00000610| 63 50 65 6e 64 69 6e 67 | 5b 5d 20 3d 20 7b 20 30 |cPending|[] = { 0|
|00000620| 4c 2c 20 30 4c 2c 20 30 | 4c 2c 20 30 4c 2c 20 30 |L, 0L, 0|L, 0L, 0|
|00000630| 4c 7d 3b 0d 69 6e 74 09 | 66 75 6e 63 50 65 6e 64 |L};.int.|funcPend|
|00000640| 69 6e 67 4c 65 6e 20 3d | 20 73 69 7a 65 6f 66 20 |ingLen =| sizeof |
|00000650| 66 75 6e 63 50 65 6e 64 | 69 6e 67 20 2f 20 73 69 |funcPend|ing / si|
|00000660| 7a 65 6f 66 28 66 75 6e | 63 50 65 6e 64 69 6e 67 |zeof(fun|cPending|
|00000670| 5b 30 5d 29 3b 0d 0d 2f | 2a 0d 20 2a 20 2a 2a 2a |[0]);../|*. * ***|
|00000680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006c0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 20 2a 20 66 75 6e 63 |********|. * func|
|000006d0| 74 69 6f 6e 73 20 0d 20 | 2a 2f 0d 2f 2a 0d 20 2a |tions . |*/./*. *|
|000006e0| 20 49 20 64 6f 6e 27 74 | 20 74 68 69 6e 6b 20 74 | I don't| think t|
|000006f0| 68 65 73 65 20 66 75 6e | 63 74 69 6f 6e 73 20 6e |hese fun|ctions n|
|00000700| 65 65 64 20 6d 75 63 68 | 20 65 78 70 6c 61 6e 61 |eed much| explana|
|00000710| 74 69 6f 6e 2e 20 20 0d | 20 2a 2f 0d 49 6e 74 46 |tion.  .| */.IntF|
|00000720| 75 6e 63 0d 50 6f 70 46 | 75 6e 63 53 74 61 63 6b |unc.PopF|uncStack|
|00000730| 28 29 0d 7b 0d 09 49 6e | 74 46 75 6e 63 09 74 6f |().{..In|tFunc.to|
|00000740| 70 3b 0d 09 69 6e 74 09 | 69 3b 0d 09 0d 09 74 6f |p;..int.|i;....to|
|00000750| 70 20 3d 20 2a 66 75 6e | 63 50 65 6e 64 69 6e 67 |p = *fun|cPending|
|00000760| 3b 0d 09 66 6f 72 20 28 | 69 20 3d 20 31 3b 20 69 |;..for (|i = 1; i|
|00000770| 20 3c 20 66 75 6e 63 50 | 65 6e 64 69 6e 67 4c 65 | < funcP|endingLe|
|00000780| 6e 3b 20 69 2b 2b 29 20 | 7b 0d 09 09 66 75 6e 63 |n; i++) |{...func|
|00000790| 50 65 6e 64 69 6e 67 5b | 69 20 2d 20 31 5d 20 3d |Pending[|i - 1] =|
|000007a0| 20 66 75 6e 63 50 65 6e | 64 69 6e 67 5b 69 5d 3b | funcPen|ding[i];|
|000007b0| 0d 09 7d 0d 09 66 75 6e | 63 50 65 6e 64 69 6e 67 |..}..fun|cPending|
|000007c0| 5b 66 75 6e 63 50 65 6e | 64 69 6e 67 4c 65 6e 20 |[funcPen|dingLen |
|000007d0| 2d 20 31 5d 20 3d 20 30 | 4c 3b 0d 09 72 65 74 75 |- 1] = 0|L;..retu|
|000007e0| 72 6e 20 74 6f 70 3b 0d | 7d 0d 0d 69 6e 74 0d 50 |rn top;.|}..int.P|
|000007f0| 75 73 68 46 75 6e 63 53 | 74 61 63 6b 28 66 75 6e |ushFuncS|tack(fun|
|00000800| 63 29 0d 09 49 6e 74 46 | 75 6e 63 09 66 75 6e 63 |c)..IntF|unc.func|
|00000810| 3b 0d 7b 0d 09 69 6e 74 | 09 69 3b 0d 0d 09 69 66 |;.{..int|.i;...if|
|00000820| 20 28 30 4c 20 21 3d 20 | 66 75 6e 63 50 65 6e 64 | (0L != |funcPend|
|00000830| 69 6e 67 5b 66 75 6e 63 | 50 65 6e 64 69 6e 67 4c |ing[func|PendingL|
|00000840| 65 6e 20 2d 20 31 5d 29 | 0d 09 09 72 65 74 75 72 |en - 1])|...retur|
|00000850| 6e 20 2d 31 3b 0d 0d 09 | 66 6f 72 20 28 69 20 3d |n -1;...|for (i =|
|00000860| 20 66 75 6e 63 50 65 6e | 64 69 6e 67 4c 65 6e 20 | funcPen|dingLen |
|00000870| 2d 20 31 3b 20 69 20 3e | 20 30 3b 20 69 2d 2d 29 |- 1; i >| 0; i--)|
|00000880| 20 7b 0d 09 09 66 75 6e | 63 50 65 6e 64 69 6e 67 | {...fun|cPending|
|00000890| 5b 69 5d 20 3d 20 66 75 | 6e 63 50 65 6e 64 69 6e |[i] = fu|ncPendin|
|000008a0| 67 5b 69 20 2d 20 31 5d | 3b 0d 09 7d 0d 09 2a 66 |g[i - 1]|;..}..*f|
|000008b0| 75 6e 63 50 65 6e 64 69 | 6e 67 20 3d 20 66 75 6e |uncPendi|ng = fun|
|000008c0| 63 3b 0d 09 72 65 74 75 | 72 6e 20 30 3b 0d 7d 0d |c;..retu|rn 0;.}.|
|000008d0| 0d 76 6f 69 64 0d 43 6c | 65 61 72 46 75 6e 63 53 |.void.Cl|earFuncS|
|000008e0| 74 61 63 6b 28 29 0d 7b | 0d 09 69 6e 74 09 69 3b |tack().{|..int.i;|
|000008f0| 0d 0d 09 66 6f 72 20 28 | 69 20 3d 20 30 3b 20 69 |...for (|i = 0; i|
|00000900| 20 3c 20 66 75 6e 63 50 | 65 6e 64 69 6e 67 4c 65 | < funcP|endingLe|
|00000910| 6e 3b 20 69 2b 2b 29 20 | 7b 0d 09 09 66 75 6e 63 |n; i++) |{...func|
|00000920| 50 65 6e 64 69 6e 67 5b | 69 5d 20 3d 20 30 4c 3b |Pending[|i] = 0L;|
|00000930| 0d 09 7d 0d 7d 0d 0d 00 | 00 00 00 00 00 00 00 00 |..}.}...|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000990| 00 00 0c 45 04 63 34 39 | 38 00 00 00 00 00 00 00 |...E.c49|8.......|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 12 43 61 6c 63 44 41 5f | 46 75 6e 63 53 74 61 63 |.CalcDA_|FuncStac|
|000009c0| 6b 2e 63 74 02 00 00 00 | 54 45 58 54 4b 41 48 4c |k.ct....|TEXTKAHL|
|000009d0| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 00 48 00 60 |..TEXTKA|HL...H.`|
|000009e0| 00 00 37 ec 00 00 00 00 | 00 00 00 00 00 00 00 00 |..7.....|........|
|000009f0| 00 00 a2 88 74 2b 00 00 | 08 b7 00 00 01 5c 00 00 |....t+..|.....\..|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 03 14 25 00 00 00 |........|....%...|
|00000a10| 0d 58 11 55 52 65 63 74 | 53 74 61 63 6b 2e 69 6e |.X.URect|Stack.in|
|00000a20| 63 31 2e 70 00 00 00 00 | 00 00 00 00 00 00 00 00 |c1.p....|........|
|00000a30| 00 00 00 00 03 20 25 00 | 00 00 0d a1 19 38 2e 50 |..... %.|.....8.P|
|00000a40| 72 6f 63 65 73 73 5f 44 | 65 73 63 72 69 70 74 69 |rocess_D|escripti|
|00000a50| 6f 6e 2e 72 74 66 00 00 | 00 00 00 00 00 00 03 2c |on.rtf..|.......,|
|00000a60| 25 00 00 00 0d f4 00 00 | 00 00 00 00 00 00 00 00 |%.......|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a80| 00 00 00 04 00 06 00 08 | 00 00 00 0a 00 09 06 4d |........|.......M|
|00000a90| 6f 6e 61 63 6f 28 00 00 | 01 00 00 00 01 16 00 00 |onaco(..|........|
|00000aa0| 00 16 00 00 00 46 00 22 | 58 44 06 fc 00 00 00 1c |.....F."|XD......|
|00000ab0| 00 46 00 01 45 54 41 42 | 00 00 00 12 45 46 4e 54 |.F..ETAB|....EFNT|
|00000ac0| 00 00 00 1e 03 ec ff ff | 00 00 00 00 00 22 57 e8 |........|....."W.|
|00000ad0| 03 eb ff ff 00 00 00 08 | 00 22 57 20 00 00 00 00 |........|."W ....|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+